gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\proAddSave.asp

    <!-- #include file = "include/sysbase.asp" -->
<%
	Dim strSQL, cmdObj, rsObj
	Dim nID, nProductType, nMemberPrice, nMarketPrice
	'获取表单数据
	nID = RealString(Request.Form("id"))
	nProductType = Cint(Request.Form("ProductType"))
	nMemberPrice = Request.Form("memberPrice")
	nMarketPrice = Request.Form("marketPrice")
	if not IsNumeric(nMemberPrice) then nMemberPrice = "1"
	if not IsNumeric(nMarketPrice) then nMarketPrice = "1"
	'创建对象
	Set cmdObj = Server.CreateObject("ADODB.Command")
	Set rsObj = Server.CreateObject("ADODB.RecordSet")
	cmdObj.CommandText = "SELECT top 1 * FROM product WHERE Id=null" ' ORDER by id desc"
	cmdObj.CommandType = adCmdText
	cmdObj.ActiveConnection = conn
	call rsObj.Open(cmdObj, , adOpenKeyset, adLockOptimistic)
	'添加数据
	rsObj.AddNew()
	rsObj("ProductType") = nProductType
	rsObj("name") = Request.Form("name")
	rsObj("memberPrice") = nMemberPrice
	rsObj("marketPrice") = nMarketPrice
	rsObj("introduce") = Request.Form("introduce")
	rsObj("remark") = Request.Form("remark")
	'更新数据库
	rsObj.Update()
	'关闭连接，将连接放入连接池
	rsObj.Close
	set rsObj = nothing
	CloseConn()
%>
<script language = Javascript>
<!--
	alert("添加成功！");
	window.location = "productList.asp";
-->
</script>